home *** CD-ROM | disk | FTP | other *** search
/ PC-SIG: World of Education / PC-SiG's World of Education.iso / run / 2602 / car.alg < prev    next >
Text File  |  1990-08-12  |  2KB  |  79 lines
  1. { CAR.ALG - algorithm to process car mileage data }
  2.  
  3. step = 1;
  4. yformat=nominal;
  5. xformat = dates;
  6. interp = off;
  7.  
  8. file = "car.dat";
  9. mileage = read & delta_miles = delta(mileage) &
  10.           tank_dist = avg(delta_miles) & max_dist = max(delta_miles) &
  11. gas = read &
  12. gas_cost = sum(read);
  13. tmpstart = startval;  tmpdur = durval;
  14.  
  15. ymin = 0;   ymax = 500;
  16. label = "'85 Porsche 944   1. Miles per tank of gas   2. Avg. Miles per tank";
  17. ylabel = "Miles";
  18. xlabel = "Date";
  19. plot(delta_miles) & plot(tank_dist);
  20. constant(tank_dist);
  21. text = "Avg. miles per tank: ";
  22. note(tank_dist,xposn(0.1),yposn(.15));
  23. constant(max_dist);
  24. text = "Max. miles per tank: ";
  25. note(max_dist,xposn(0.1),yposn(.2));
  26. pause;
  27.  
  28. erase;
  29. ymax = 40;
  30. ylabel = "Miles Per Gallon";
  31. label = "'85 Porsche 944   1. MPG    2. Gallons of gasoline   3. Average MPG";
  32. mpg = delta_miles / gas & std_mpg = std.dev(mpg) &
  33. avg_mpg = avg(mpg) & max_mpg = max(mpg) &
  34. plot(mpg) & plot(gas);
  35. constant(std_mpg);
  36. constant(avg_mpg);
  37. oldstep = stepval;
  38. step=durval;
  39. plot(avg_mpg) & plot(avg_mpg + 3*std_mpg) & plot(avg_mpg - 3*std_mpg);
  40. step = oldstep;
  41. constant(max_mpg);
  42. text = "Avg. MPG: ";
  43. note(avg_mpg,xposn(0.1),yposn(.15));
  44. text = "Max. MPG: ";
  45. note(max_mpg,xposn(0.1),yposn(.2));
  46. pause;
  47.  
  48. erase;
  49. label="Total Gasoline Cost";
  50. ylabel = "Dollars";
  51. ymin=0;  ymax=2000;
  52. plot(gas_cost);
  53. constant(gas_cost);
  54. text = "Total gas cost: $";
  55. note(gas_cost,xposn(0.1),yposn(.95));
  56. pause;
  57.  
  58. erase;
  59. label="Fillup Distribution - Gallons of Gas per Fillup";
  60. ylabel = "Number of Fillups";
  61. xlabel = "Gallons per Fillup";
  62. xformat=nominal;
  63. mxgal = 20;   mngal = 10;   binsize = .5;
  64. binset((mxgal-mngal)/binsize,mngal,mxgal);
  65. bincnt(gas);
  66. trace = vline;
  67. plot(bin(t));
  68. pause;
  69.  
  70. erase;
  71. step=1; start = tmpstart;  dur = tmpdur;
  72. label="Miles Per Gallon Distribution";
  73. ylabel = "Number of Times";
  74. xlabel = "Miles Per Gallon";
  75. xformat=nominal;
  76. binset(50,10,30);
  77. bincnt(mpg);
  78. plot(bin(t));
  79.